home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 7 / PCPP #7.iso / utils / vis-irc / default.lib next >
Encoding:
Text File  |  1996-09-07  |  8.1 KB  |  370 lines
  1. // Visual IRC '96 standard event/alias/menu library
  2. // Version 0.60
  3.  
  4. Name V96 0.60 standard event/alias/menu library
  5.  
  6. // Events
  7.  
  8. Event <default> 0 "*"
  9.   // This event is handled internally.
  10.  
  11.   // Default server text is displayed
  12.   // automatically by ViRC '96.
  13. EndEvent
  14.  
  15. Event <OnConnect> 0 "*"
  16.   // This event is fired on connection to the server.
  17. EndEvent
  18.  
  19. Event <OnDisconnect> 0 "*"
  20.   // This event is fired on disconnection from the server.
  21. EndEvent
  22.  
  23. Event <OnNotifyJoin> 0 "*"
  24.   TextOut > . ecNOTICE *** Notify: $0 is on IRC
  25. EndEvent
  26.  
  27. Event <OnNotifyQuit> 0 "*"
  28.   TextOut > . ecNOTICE *** Notify: $0 has quit IRC
  29. EndEvent
  30.  
  31. Event JOIN 5 "* JOIN"
  32.   TextOut > $2 ecJOIN *** \b$nick ($user@$host)\b has joined channel $2
  33.   if ($GetBanlevel($nick!$user@$host) >= 1)
  34.      Bk $2 $nick You're not welcome here!! (banlevel = $GetBanlevel($nick!$user@$host))
  35.   endif
  36.   if ($GetUserlevel($nick!$user@$host) >= 1)
  37.      Mode $2 +o $nick
  38.   endif
  39. EndEvent
  40.  
  41. Event PART 5 "* PART"
  42.   if ([$nick] != [$N])
  43.      TextOut > $2 ecPART *** \b$nick ($user@$host)\b has left channel $2
  44.   endif
  45. EndEvent
  46.  
  47. Event QUIT 5 "* QUIT"
  48.   for (@ $i = 1; $i > $channelcount(); $i++)
  49.     if ($ison($nick $channels($i)))
  50.        TextOut > $channels($i) ecQUIT *** Signoff: \b$nick ($user@$host)\b has left IRC [$2-]
  51.     endif
  52.   endfor
  53.   -@ $i
  54. EndEvent
  55.  
  56. Event TOPIC 5 "* TOPIC"
  57.   TextOut > $2 ecTOPIC *** \b$nick\b has changed the topic on $2 to "$StrTrim($3-)"
  58. EndEvent
  59.  
  60. Event MODE 5 "* MODE"
  61.   TextOut > $2 ecMODE *** Mode change [$3-] on channel $2 by \b$nick\b
  62. EndEvent
  63.  
  64. Event INVITE 5 "* INVITE"
  65.   TextOut ecNotice *** $StrTrim($0) invites you to channel $StrTrim($3-)
  66. EndEvent
  67.  
  68. Event WALLOPS 5 "* WALLOPS"
  69.   TextOut ecNotice !\b$nick\b!\t$StrTrim($2-)
  70. EndEvent
  71.  
  72. Event ChannelMessage 5 "* PRIVMSG #*"
  73.   TextOut > $2 ecChanText <\b$nick\b>\t$StrTrim($3-)
  74. EndEvent
  75.  
  76. Event CTCP 6 "* PRIVMSG * :\A*"
  77.   TextOut ecCTCP *** Received CTCP $Upper($StrTrim($3)) from \b$nick\b: $4-
  78. EndEvent
  79.  
  80. Event ChannelNotice 5 "* NOTICE #*"
  81.   TextOut > $2 ecNOTICE =\b$nick\b=\t$StrTrim($3-)
  82. EndEvent
  83.  
  84. Event PrivateNotice 4 "* NOTICE *"
  85.   if ($StrPos(. $nick) > 0)
  86.      TextOut > . ecNOTICE =\b$nick\b=\t$StrTrim($3-)
  87.   else
  88.      TextOut ecNOTICE =\b$nick\b=\t$StrTrim($3-)
  89.   endif
  90. EndEvent
  91.  
  92. Event CTCPReply 6 "* NOTICE * :\A*"
  93.   TextOut ecCTCP *** Received CTCP $Upper($StrTrim($3)) reply from \b$nick\b: $4-
  94. EndEvent
  95.  
  96. Event KICK 5 "* KICK *"
  97.   TextOut > $2 ecKICK *** \b$nick\b has kicked \b$3\b from channel $2 [$StrTrim($4-)]
  98. EndEvent
  99.  
  100. Event NICK 5 "* NICK"
  101.   for (@ $i = 1; $i > $channelcount(); $i++)
  102.     if ($ison($nick $channels($i)))
  103.        TextOut > $channels($i) ecNICK *** \b$nick\b is now known as \b$2\b
  104.     endif
  105.   endfor
  106.   -@ $i
  107. EndEvent
  108.  
  109. Event PrivateMessage 4 "* PRIVMSG *"
  110.   if ($GetSetting(Options QueryEnabled)) || ($IsQuerying($nick))
  111.      TextOut > $nick ecQueryText <\b$nick\b>\t$StrTrim($3-)
  112.   else
  113.      TextOut ecPRIVMSG *\b$nick\b*\t$StrTrim($3-)
  114.   endif
  115. EndEvent
  116.  
  117. Event ChannelAction 7 "* PRIVMSG #* :\AACTION"
  118.   TextOut > $2 ecACTION  * \b$nick\b $4-
  119. EndEvent
  120.  
  121. Event PrivateAction 7 "* PRIVMSG * :\AACTION"
  122.   TextOut ecACTION  *> \b$nick\b $4-
  123. EndEvent
  124.  
  125. Event PingReply 7 "* NOTICE * :\APING"
  126.   TextOut ecCTCP *** Received CTCP $StrTrim($3) reply from \b$nick\b: $DecodePingInterval($4)
  127. EndEvent
  128.  
  129. Event Ping 7 "* PRIVMSG * :\APING"
  130.   // Don't display anything when a ping
  131.   // comes in.
  132. EndEvent
  133.  
  134. Alias J
  135.   if ([$1] == [])
  136.      @ $x = $?="Enter a channel name to join:"
  137.   else
  138.      @ $x = $1-
  139.   endif
  140.   if ([$substr($x 1 1)] != [#]) && ([$substr($x 1 1)] != [&])
  141.      @ $x = #$x
  142.   endif
  143.   Join $x
  144.   -@ $x
  145. EndAlias
  146.  
  147. Alias OP
  148.   if ([$1] == [])
  149.      Mode $C +oooo $?="Enter some nicks to op:"
  150.   else
  151.      Mode $C +oooo $1-
  152.   endif
  153. EndAlias
  154.  
  155. Alias DEOP
  156.   if ([$1] == [])
  157.      Mode $C -oooo $?="Enter some nicks to deop:"
  158.   else
  159.      Mode $C -oooo $1-
  160.   endif
  161. EndAlias
  162.  
  163. MenuTree MT_MAINMENU
  164.   M_FILE       <none> 0 0 &File
  165.   M_NEWCONNECT Ctrl+K 0 1 &New connection ...
  166.   M_SETUP      <none> 0 1 Client s&etup ...
  167.   M_FSEP1      <none> 0 1 -
  168.   M_EXIT       Alt+X  0 1 E&xit
  169.   M_TOOLS      <none> 0 0 &Tools
  170.   M_FINGER     Ctrl+F 0 1 UNIX &finger ...
  171.   M_DNS        Ctrl+L 3 1 &DNS lookup ...
  172.   M_PORTSCAN   Ctrl+P 0 1 &Port scanner ...
  173.   M_TSEP1      <none> 0 1 -
  174.   M_LINKS      <none> 1 1 &Links
  175.   M_CHANLIST   <none> 1 1 &Channel list ...
  176.   M_TSEP2      <none> 0 1 -
  177.   M_EXPLORE    Ctrl+E 0 1 &Explore ...
  178.   M_SCRIPTING  <none> 0 0 &Scripting
  179.   M_EVENTS     <none> 0 1 &Events ...
  180.   M_ALIASES    <none> 0 1 &Aliases ...
  181.   M_MENUS      <none> 0 1 &Menus/popups ...
  182. EndMenuTree
  183.  
  184. MenuTree MT_SERVERPOPUP
  185.   M_SCONNECT    <none> 2 0 Co&nnect
  186.   M_SDISCONNECT <none> 1 0 &Disconnect
  187.   M_SSEP1       <none> 0 0 -
  188.   M_SIGNOFF     <none> 1 0 &Signoff ...
  189. EndMenuTree
  190.  
  191. MenuTree MT_CHANNELTEXTPOPUP
  192. EndMenuTree
  193.  
  194. MenuTree MT_CHANNELNICKSPOPUP
  195.   M_WHOIS     <none> 0 0 &Whois (user info)
  196.   M_QUERY     <none> 0 0 &Query (private message window)
  197.   M_SEP1      <none> 0 0 -
  198.   M_DCCCHAT   <none> 0 0 DCC &Chat
  199.   M_DCCSEND   <none> 0 0 DCC &Send ...
  200.   M_TDCCSEND  <none> 0 0 TDCC S&end ...
  201.   M_TDCCVOICE <none> 0 0 TDCC &Voice ...
  202.   M_SEP2      <none> 0 0 -
  203.   M_CTCP      <none> 0 0 C&TCP
  204.   M_CPING     <none> 0 1 &PING
  205.   M_CVERSION  <none> 0 1 &VERSION
  206.   M_CTIME     <none> 0 1 &TIME
  207.   M_SEP3      <none> 0 0 -
  208.   M_OP        <none> 1 0 &Op
  209.   M_DEOP      <none> 1 0 &Deop
  210.   M_KICK      <none> 1 0 &Kick
  211.   M_BAN       <none> 1 0 &Ban
  212.   M_KICKBAN   <none> 1 0 K&ickban
  213. EndMenuTree
  214.  
  215. MenuItem M_FILE on MT_MAINMENU
  216. EndMenuItem
  217.  
  218. MenuItem M_NEWCONNECT on MT_MAINMENU
  219.   NewServerWindow
  220. EndMenuItem
  221.  
  222. MenuItem M_SETUP on MT_MAINMENU
  223.   ShowClientSetup
  224. EndMenuItem
  225.  
  226. MenuItem M_FSEP1 on MT_MAINMENU
  227. EndMenuItem
  228.  
  229. MenuItem M_EXIT on MT_MAINMENU
  230.   Exit
  231. EndMenuItem
  232.  
  233. MenuItem M_TOOLS on MT_MAINMENU
  234. EndMenuItem
  235.  
  236. MenuItem M_FINGER on MT_MAINMENU
  237.   Finger
  238. EndMenuItem
  239.  
  240. MenuItem M_DNS on MT_MAINMENU
  241. EndMenuItem
  242.  
  243. MenuItem M_PORTSCAN on MT_MAINMENU
  244.   ShowPortScanner
  245. EndMenuItem
  246.  
  247. MenuItem M_TSEP1 on MT_MAINMENU
  248. EndMenuItem
  249.  
  250. MenuItem M_LINKS on MT_MAINMENU
  251.   Links
  252. EndMenuItem
  253.  
  254. MenuItem M_CHANLIST on MT_MAINMENU
  255.   List
  256. EndMenuItem
  257.  
  258. MenuItem M_TSEP2 on MT_MAINMENU
  259. EndMenuItem
  260.  
  261. MenuItem M_EXPLORE on MT_MAINMENU
  262.   Explore
  263. EndMenuItem
  264.  
  265. MenuItem M_SCRIPTING on MT_MAINMENU
  266. EndMenuItem
  267.  
  268. MenuItem M_EVENTS on MT_MAINMENU
  269.   ShowEventEditor
  270. EndMenuItem
  271.  
  272. MenuItem M_ALIASES on MT_MAINMENU
  273.   ShowAliasEditor
  274. EndMenuItem
  275.  
  276. MenuItem M_MENUS on MT_MAINMENU
  277.   ShowMenuEditor
  278. EndMenuItem
  279.  
  280. MenuItem M_SCONNECT on MT_SERVERPOPUP
  281.   Connect
  282. EndMenuItem
  283.  
  284. MenuItem M_SDISCONNECT on MT_SERVERPOPUP
  285.   Disconnect
  286. EndMenuItem
  287.  
  288. MenuItem M_SSEP1 on MT_SERVERPOPUP
  289. EndMenuItem
  290.  
  291. MenuItem M_SIGNOFF on MT_SERVERPOPUP
  292.   @ $x = $?="Enter a signoff quote, or just press Enter."
  293.  
  294.   if ([$x] != [])
  295.      Quit $x
  296.   else
  297.      Quit \b[=\uV96\u=]\b Leaving
  298.   endif
  299. EndMenuItem
  300.  
  301. MenuItem M_WHOIS on MT_CHANNELNICKSPOPUP
  302.   Whois $1
  303. EndMenuItem
  304.  
  305. MenuItem M_QUERY on MT_CHANNELNICKSPOPUP
  306.   Query $1
  307. EndMenuItem
  308.  
  309. MenuItem M_SEP1 on MT_CHANNELNICKSPOPUP
  310. EndMenuItem
  311.  
  312. MenuItem M_DCCCHAT on MT_CHANNELNICKSPOPUP
  313.   DCC Chat $1
  314. EndMenuItem
  315.  
  316. MenuItem M_DCCSEND on MT_CHANNELNICKSPOPUP
  317.   DCC Send $1
  318. EndMenuItem
  319.  
  320. MenuItem M_TDCCSEND on MT_CHANNELNICKSPOPUP
  321.   TDCC Send $1
  322. EndMenuItem
  323.  
  324. MenuItem M_TDCCVOICE on MT_CHANNELNICKSPOPUP
  325.   TDCC Voice $1
  326. EndMenuItem
  327.  
  328. MenuItem M_SEP2 on MT_CHANNELNICKSPOPUP
  329. EndMenuItem
  330.  
  331. MenuItem M_CTCP on MT_CHANNELNICKSPOPUP
  332. EndMenuItem
  333.  
  334. MenuItem M_CPING on MT_CHANNELNICKSPOPUP
  335.   Ping $1
  336. EndMenuItem
  337.  
  338. MenuItem M_CVERSION on MT_CHANNELNICKSPOPUP
  339.   CTCP $1 VERSION
  340. EndMenuItem
  341.  
  342. MenuItem M_CTIME on MT_CHANNELNICKSPOPUP
  343.   CTCP $1 TIME
  344. EndMenuItem
  345.  
  346. MenuItem M_SEP3 on MT_CHANNELNICKSPOPUP
  347. EndMenuItem
  348.  
  349. MenuItem M_OP on MT_CHANNELNICKSPOPUP
  350.   Mode $C +o $1
  351. EndMenuItem
  352.  
  353. MenuItem M_DEOP on MT_CHANNELNICKSPOPUP
  354.   Mode $C -o $1
  355. EndMenuItem
  356.  
  357. MenuItem M_KICK on MT_CHANNELNICKSPOPUP
  358.   Kick $C $1
  359. EndMenuItem
  360.  
  361. MenuItem M_BAN on MT_CHANNELNICKSPOPUP
  362.   Ban $C $1
  363. EndMenuItem
  364.  
  365. MenuItem M_KICKBAN on MT_CHANNELNICKSPOPUP
  366.   BK $C $1
  367. EndMenuItem
  368.  
  369. UpdateMenus
  370.